$Status = system ("cmdtool csh -c 'cd $BASEDIR;tar cvf $TarFile $ShortDir;rm -f $TarFile.Z;compress $TarFile;echo \" \";echo \"The size of the file to send is (in Kb): \"`du -ks $TarFile.Z`;echo \" \";echo \"READ THIS: Please ftp this file.\";echo \" \";echo \"The ftp site is xm.com (open xm.com).\";echo \"The login name is \'cdware\'. The password is \'jan1995\'.\";echo \"Just copy your file ($TarFile.Z) in the current directory:\";$Device;echo \" \";echo \"Press <Return> to close this window...\";read a'");
#print "Status=$Status<br>";
}
if ($request =~ /^TAPEDEV/) {
#print "in case request=tapedev<br>";
$Device = $request;
$Device =~ s/TAPEDEV=//;
if (-c $Device) {
#print "cmdtool /bin/csh \<echo \"test\"";
$TarFile = $HomeDir;
$TarFile =~ s?.*/([^/]*)$?\1.tar?;
#$TarFile = "$BASEDIR/$TarFile";
$Status = system ("cmdtool csh -c 'cd $BASEDIR;tar cvf $TarFile $ShortDir;rm -f $TarFile.Z;compress $TarFile;echo \"The size of the file to send is (in Kb): \"`du -ks $TarFile.Z`;echo \" \";echo \"Copying file on tape:\";tar cvf $Device $TarFile.Z;echo \" \";echo \"Press <Return> to close this window...\";read a'");
#print "Status=$Status<br>";
} else {
$Status = &PrintErr("NoDevice", $Device);
$ARGV[0] = "TAPE";
}
}
if ($request =~ /^DISKDEV/) {
#print "in case request=tapedev<br>";
$Device = $request;
$Device =~ s/DISKDEV=//;
if (-c $Device) {
#print "cmdtool /bin/csh \<echo \"test\"";
$TarFile = $HomeDir;
$TarFile =~ s?.*/([^/]*)$?\1.tar?;
#$TarFile = "$BASEDIR/$TarFile";
$Status = system ("cmdtool csh -c 'cd $BASEDIR;tar cvf $TarFile $ShortDir;rm -f $TarFile.Z;compress $TarFile;echo \"The size of the file to send is (in Kb): \"`du -ks $TarFile.Z`;echo \" \";echo \"Copying file on diskette(s):\";echo \"$TarFile.Z\"|cpio -uo -O $Device;echo \" \";echo \"Press <Return> to close this window...\";read a'");
,($Device ne ""?$Device:"/dev/rdiskette"), "\" SIZE=\"20\" MAXLENGTH=50>"
," <input type=\"submit\" VALUE=\"Copy on diskette\" > </FORM>";
print "<p><img ALIGN=middle src=\"http://localhost:5759/DEV/images/finger.gif\">Before clicking on the button, you need to stop the volume manager:<br><ol><li>Become superuser<br><li>Type the command: <tt>/etc/init.d/volmgt stop</tt><li>Check that the volume manager is stopped by typing the command: <tt>ps -ea|grep vold</tt>. You shouldn't get any return. If vold is still running, one of your applications must be using it and need to be exited.<li>Once the volume manager is stopped, you can insert a diskette in your drive and press the button \"Copy on diskette\".<li>To restart the volume manager, enter the following command: <tt>/etc/init.d/volmgt start</tt>.</ol>";
}
}
if ($ARGV[0] eq "" && $request eq "") {
unless (-s $HomeDir . "/_info") {
&PrintErr("NoExist", "$HomeDir/_info");
}
unless (-s $HomeDir . "/index.html") {
&PrintErr("NoExist", "$HomeDir/index.html");
}
print "<h2>Are you sure you are done with your insertion?</h2>";
print "<ul><H4>$IMAGE_RED_BUL<a href=\"http://localhost:5759/cgi-bin/mainmenu.pl?\">Go back to main menu</a></H4>";
print "<p>$IMAGE_RED_BULChoose how you will send your insertion to Sun Microsystems:</p><ol>";
You, like these companies, will benefit from the CDware capability of reaching tens of thousands of potential customers with information, links to your web site, or directly with YOUR product!
<h5><p><A HREF=http://localhost:5759/CDware/Help/SMICopyright.html>Copyright</A> 1995 Sun Microsystems, Inc., 2550 Garcia Ave., Mtn. View, CA 94043 USA. All rights reserved.</h5><br></pre>
<h3>Please send us an Email to let us know that we should expect your insertion: <A href="mailto:cdware@sun.com">cdware@sun.com</A></h3>
"@", "@"
<p><applet class="ImageLoopItem" img="http://localhost:5759/DEV/images/blinkingAlert" ALIGN=middle pause=0 width=56 height=49 pause = 200>Once you sent us an Email, you can just quit hotjava or use it to browse the web!</p>